home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Interactive Media Design Review 1999
/
Interactive Media Design Review 1999.iso
/
pc
/
allfiles
/
tokyo
/
east.dir
/
00014_Script_movie
< prev
next >
Wrap
Text File
|
1999-04-26
|
2KB
|
71 lines
global sndList, sndCount, chanNum, maxSnd, Nsnd, Esnd, Ssnd
global Ccounter, CsprtList, Ctime, mousePlace
on startMovie
-- clearglobals
preLoadcast
initsnd
puppetsprite 39,1
puppetsprite 3,1
set CsprtList=[]
set cTime=0
set the volume of sound 1 to 100
end
on initSnd
set Esnd=["sounds:street3.aif", "sounds:street2.aif", "sounds:arcade.aif","sounds:girl.aif", "sounds:street1.aif", "sounds:cbl.aif", "sounds:texture3.aif", "sounds:texture4.aif"]
set maxSnd=400
set sndList=""
set sndCount = 1
set chanNum = 2
repeat with i = 1 to maxSnd
put "-" into line i of sndlist
end repeat
end
on echo
set sndCount = sndCount +1
if sndCount > maxSnd then set sndCount = 1
if line sndCount of sndlist <> "-" then
if not(soundbusy(chanNum)) then sound playfile, chanNum, the pathname & line sndCount of sndlist
set chanNum = chanNum+1
if chanNum = 9 then set chanNum = 2
end if
end
on animate chan, firstpos, lastpos, delaytime
if the membernum of sprite chan < firstpos or the membernum of sprite chan > lastpos then set the membernum of sprite chan = firstpos
set the castNum of sprite chan = the castNum of sprite chan + 1
if the castNum of sprite chan > lastpos then set the castNum of sprite chan to firstpos
set t = delaytime+the timer
repeat while t > the timer
if the mousedown then exit repeat
end repeat
end
on rightArrow
if rollover(141) then
set the blend of sprite 141 to 50
else
set the blend of sprite 141 to 100
end if
end
on exitMovie
if rollover(143) then
set the blend of sprite 143 to 50
else
set the blend of sprite 143 to 100
end if
end